DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 
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DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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vousouoe ACE 1e3eb-13k4 99:42:88 
; 1 MODULE cliS$interface (IDENT='V04-000' 

ADDRESSING_MODE (NON XTERNAL=LONG_RELATIVE, 


XTERNAL=GENERALT) 
BEGIN Sepetmases 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
; LY IN ACCORDANCE WITH —e T OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE oy Sg th yt * THIS SOFTWARE OR ANY OTHE 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= OORPORAT I Ok NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


:® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:®# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: FACILITY: Command Language interface routines 


ABSTRACT: 


UN “SO ODNAVUSWN “OO ONAUSWN “OODONOUS WI 


AY EE th a a Neg! ae tet ee etre 


These routines are used to enable a newly activated 


sessesesescosess 


i 
: 
! 
7 i image to obtain the command parameters and qualifiers 
: from the command Language interpreter. 
40 9040 i ENVIRONMENT : 
4¢ 0048 : VAX/VMS operating system. unprivileged user mode, 
re rt i AUTHOR: Peter George, October 1981 
6 B68 ; Modified by: 
48 : : v03-011 PCG0013 Peter George 17-Feb-1983 
$3 : : Include INTDEF instead of CLIDEF. 
34 29 i v03-010 PCG0012 Peter George 16-Feb-1983 
26 25 } Fix typo. 
54 54 1 v03-009 PCG0011 Peter George 08-Feb-1983 
55 2? : No need to resignal STRSCOPY_DX errors. 
3$ 3 i v03-008 PCG0010 Peter George 14-Dec-1982 


vee-dog 


Ssos 
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Allocate local descriptor for command string. 


v03-007 PCG0009 eeter George 29-Nov-1982 
Add argument to str nei sdesc call. 


X-11 
SK$V 


v03-006 PCG0008 Pete orge 22-Nov-1982 
Add CLISNEXT_QUAL. efx optional sents assignment 
in CLISGET_VALUE. Analyze input string descriptors. 

v03-005 PCG0007 Peter G orge 18-0 t-1982 
Add prompt “pegs to tL DCL_PARSE. 

v03-004 PCG0006 orge 12-0ct-1982 
Remove entarenton’ of eis ND_PARSE. 

v03-003 PCG0005 Peter George 10-0¢ t-1982 
Look in SYSSLIBRARY for UTILDEF. 

v03-002 Neg to: Peter George 30-Sep-1982 


Use INT data structure 
Add prompt and continuation rene to CLISDCL_PARSE. 
Add value address to CLISGET VALUE. 
Add user argument to CLISDISPATCH. | 
Delete CLISEND_PARSE. 


v03-001 PCG0003 Pete eorge 
Add CLIS$_LOCPRES ond etts ee statuses 
Signal errors from STRSCOPY_ 


eases 


i Include files 

LIBRARY "SYSSLIBRARY:STARLET'; 
REQUIRE ‘SYSS$LIBRARY:UTILDEF’; 
REQUIRE ‘LIBS: INTDEF’; 


! Common VMS BLISS definitions 
! Interface definitions 
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One 


1 
} Table of contents 
FORWARD ROUTINE 
cli$present, 
ct teget_value, 
cli$dcl_parse, 
cli$dispatch 
cli$next_qual; 


EXTERNAL ROUTINE 


Lib$free_vm, 
str$analyze_sdesc, 
str$copy_dx; 


' 
: External message definitions 


EXTERNAL LITERAL 


6 
-$ep-1984 00:32:01 VAX-11 Bliss-32 V4.0-74 
~3001 38% 90: 32:9h PE EKSUMCMASTER SEO CL SRCICLINT .032;1 


Determine if entity present 

Get value of entity 

Parse a command Line 

Dispatch to user processing routine 
Get next qualifier 


CLI callback routine 
Allocate virtual memory 
Deallocate virtual memory 
Analyze ge descriptor 
Copy to any class string 


Prompt was ctrl/z-ed 
Value is concatenated 


Entity is explicitly Se ee pd hy , 
F) presen 

ly present 
ly present 
Entity is implic 


tly present 
Entity is implic 


tly not present 


te mete 
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» 6 
CLISINTERFACE 16-Sep-1984 00:32:01‘ VAX"11 BLiss-32 v4.0-74 p P 
yb42000 race ahe Pots eye ealSteaccber seeScuimt.e3e:1 2% cst 


= 
; } 3 7 } GLOBAL ROUTINE cli$present (name) = | 
i Bins | 
3 } j } Determine if an entity is present on the command Line. | 
3 135 3 1 i Inputs: | 
; i 5 name = Address of entity name descriptor | 
; 139 ; 1 { Outputs: 
3 141 § ii routine value = True if present, else false. 
; 10g 40 1 !ee- 
; 14 8 41 1 
3 144 4g BEGIN 
; 145 4 
; 146 4 LOCAL 
3: 147 5 req_.desc : BBLOCK pct f3c_reqdesc) ! Request descriptor block 
; 148 dere rpw : BBLOCK cliss workareal,! Result parse work area 
: 13 oats req_flags : BITVECTOR (327; ! Request flags array 
: 151 0349 CHSFILL(O, cli$c_reqdesc, req_desc); ! Zero request descriptor block 
3 136 0350 req_desc Lint_b_type) = cli$k_present; ! Set request type 
; 0351 req_desc inet _getvm) = Uibsget vm; ! Set address of get vm routine 
: 138 0338 req_desc int_l_freevm] = LibSfree_vm; ! Set address of free vm routine 
; 138 See Set entity name 
; 158 0356 strSanalyze_sdesc (.name, req_desc Cint_w_entlen], req_desc Cint_l_entaddr]); 
3: 159 035 RETURN (SYSSCLI (req_desc, rpw, req_flags)); ! Call“callback OtTlity 
; 160 0358 1 END; 
TITLE CLISINTERFACE 
-IDENT \V04-000\ 
eEXTRN SYSSCLI, LIBSGET_VM 
-EXTRN LIBSFREE_VM, STRSANALYZE_SDESC 
eEXTRN lye DX, CLIS_NOCOMD 
~EXTRN CLIS_CONTAT, CLIS-COMMA 
EXTRN CLISTPRESENT, CLIS_NEGATED 
-EXTRN CLIS_LOCPRES, CLIS wen: 
-EXTRN CLIS DEFAULTED, CLT$_ABSENT 
.PSECT SCODES,NOWRT,2 | 
Se FF60 vet 0008 Ph sath Ch IST RE SENT Save R2,R3,R4,R5 ; 0327 
1C 00 6E - 06 2c 3 moves #0, (SP); #0, #28, REQ_DESC ; 0349 
E46 AD 5S BF 90 MOVB #80, REQ DESC : 0350 
F4 AD 44 G 8 9E 1 MOVAB LIBSGET QM, REQ witht ; 0351 
F8 AD 00 006 E 18 MOVAB LIBSFREE yo. REG_DESC+20 : ee 
F D OF PUSHAB REQ _DESC#12 ; 035 
Ff AD 9F 8 PUSHAB REQ DESC+8 : 
4 AC OD PUSHL NAME : 


-—m 


~Sep-1984 VAX=11 BLiss-32_¥4.0- 5 
aa Sep 1984 12:14:58 DISKSYMSMASTERSEDCL SRCSCLINT.832;1 9° (35 
000000006 00 3 FB : CALLS #3, STRSANALYZE_ SDESC 
00 
00 
| 


CLISIBTERFACE 


E 00d PUSHL ; 0357 

08 AE OF PUSHAB coe : 

E46 A F PUSHAB 7 DESC ; 

000000006 00 03 FB 8 CALLS » SYSSCLI : 
04 4 RET ; 0358 


; Routine Size: 67 bytes, Routine Base: S$CODES + 0000 


om 


F 6 


GLOBAL ROUTINE cliS$get_value (name, retdesc, retlength) = 


Wn—Oo 


This routine is called to obtain the next value 
associated with a named entity on the command Line. 


a) 

4 

‘ 

; Inputs: 

i name = Address of entity name descriptor 
! retdesc = Address of a return buffer descriptor 
! retlength = Address of a longword to return the value 
; Length in 
Outputs: 

i 

i 

i] 

' 

' 


True = A value was returned (there — be more). 
False = There is no more values associated with entity. 


ALL other errors are signaled. 


—— 
no 
OOCCCSCOOOOOCOCOOOOOoCoooO 
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P 
retdesc : REF BBLOCK; 


BUILTIN 
NULLPARAME TER; 


LOCAL 
req.desc : BBLOCK Ccli$c_reqdesc], ! Request descriptor block 
rpw: LOCK clige workareai,’ Result parse work area 
req, flags : BITVECTOR (323, ! Request flags array 

us; 


SS 
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! Zero request descriptor block 
req_desc Cint_b_type] = cli$k_getvalue; i Set request type 
req_desc Lint_l_getvm] = UidSpet va; ! Set address of get vm routine 
req_desc Cint_l_freevm] = LibSfree_va; ! Set address of free vm routine 
1 


: Set entity name 


Ww 


OOOCOCOCoocooocoocooooo 


reef cli$c roageet. req_desc); 


SSeNLEAR 


str$analyze_sdesc (.name, req_desc Cint_w_entlen], req_desc Cint_l_entaddr]); 
status = sys$cli (req_desc, rpw, req_flags); ' Call“DCL utility 

t 

: If return length was requested, then find it now. 

if NOT NULLPARAMETER (3) ! If return length requested 


THEN (.retlength) < = ! then original estimate 
-req_desc Cint_w_retlen); : 


SSLESRAN= 


str$copy_dx (.retdesc, req_descLint_w_retlen]); ! Copy result into return desc 
IF NOT NULLPARAMETER (3) ! If return length requested 


ir er ir er ir er 
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3; Routine Size: 
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1 THEN BEGIN ! Then return correct value 
1 LOCAL temp : BBLOCK Cdsc$c_s_blnj; : 
41 eersenat yee» esc yin ! Get cores estimate 
1 aay pone hag temp CégcSe pointer)); 
IF temp LSSU .retdesc ECdsc$w_length) ° Return the smaller estimate 
THEN (.retlength) <0,16> =".temp; 
4 § D; 
4 
4 RETURN .status; 
425 END; 


007¢ .ENTRY CLISGET_VALUE, Save R2,R3,R4,R5,R6 
56 000000006 00 9 MOVAB STRSANACYZE SDESC, R6 
E FF ce 9E NOVAB -168(SP), § 
00 6E : 00 2¢ movcS #0, (SP), #0, #28, REQ_DESC 
E46 AD + F 90 MOVB #81, REQ DESC 
F4 AD 000000006 00 9E MOVAB LIBS$GET 0M, REQ_DESC+16 
FB AD 000000006 00 3 MOVAB LIBSFREE VM. REG_DESC+20 
ane pus teases 
66 03 FB CALLS #3, STRSANALYZE_SDESC 
E DD PUSHL SP 
10 AE OF PUSHAB RP 
E4 AD OF PUSHAB REQ_DESC 
000000906 00 FB CALLS #3, SYSSCLI 
3 0 p MOVL RO, STATUS 
i ity ge. 
oc A 05 TSTL 12¢AP) 
05 1 BEQL =Sésés18; 
oc Bc EC AD Hy MOVW REQ_DESC+8, @RETLENGTH 
ae mae aetaeeee 
000000006 0 02 Fe CALLS aS STRECOPY_DX 
° $f Brseu 8 
oc ac 05 TSTL (AP) 
1A BEQL 
AE gf PUSHAB TEMP+4 
6 AE OF PUSHAB TEMP 
AC 0D SHL RETDESC 
66 FB CALLS #3, STRSANALYZE_SDESC 
08 Bc 1 FD cMPzV f ’ #16, @RETDESC, TEMP 
0c ec 04 Ag 8p Vw TEMP, @RETLENGTH 
5 BO MOVL STATUS, R 


140 bytes, Routine Base: S$CODE$ + 0043 
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GLOBAL ROUTINE cliS$dcl_parse (command, tables, promptrtn, continrtn, prompt) = 


t 
‘ This routine can be called to parse a command Line. 


i Inputs: 


! 

' 

] 

: command = address of descriptor of command string 

: tables = address of command tables 

: promptrtn = address of user nissing parameter prompt routine 
; continrtn = address of user Line continuation routine 

: prompt = address of user prompt string descriptor 
1 

' 

] 

' 

] 


i Outputs: 
i The command is parsed and the command work area is initialized. 
BEGIN 


BUILTIN 
NULLPARAME TER; 


LITERAL 
elements = 4; 


LOCAL 
BBLOCK Cdsc$c_s_bin], 


ommand de esc Local command descriptor 
rtnlist: BBLOCK 4e(elements+T)) list 


Routine 


t 

i 
req_desc : eS Est $c _reqdesc4 ! Request dessripter block 
rpw : cl § “workareal, ! Result parse work area 
req_flags : BI TVECT OR 1; ! Request flags array 


Zero request descriptor block 


i 
i$ 

C3 
CHSFILL(O, cli$c_reqdesc, req_desc); 
req_desc Lint -p type] _= cli$k— “de lparse; Set request type 

req_desc Cint_t = tem = oe Set address of get vm routine 


$get_vm: 
req_desc Cint_\"freevm) = betree VM; Set address of free vm routine 


IF ee ne renee ! Set command line descriptor 
str$analyze_sdesc (.command, Sqnnens ~fesc c Cdsc$w | et 
command_desc Cdsc$a_pointer] 
rea. desc Cint_l_entaddr] = command_desc; 


req_desc Cint_l_tables] = .tables; ! Set address of command tables 


IF er A ener TERS OR NOT NULLPARAMETER(4) ! If prompt or continue routine 


neon be te f sfetqnentss =}. rtnlist); ' Zero the list 
rtnlist Lint ‘en = elements; ' Set number 2 elements in List 
rea. desc Cink. tt itt rtnlist; ' And connect it 


IF NOT NULLPARAMETER(3) 


6 
voe000 A“ IE$S0r198E Q0H2:0]  YMcLTWBLLSRERE HC °SP4% cs owrsesast P28" os? 
7 


THEN etnlist C L_promptrtn] = .promptrtn; ! Set address of prompt routine 


| 
| 
4 int | 
; IF NOT NULLPARAMETERTSS 
3 5 THEN rtnlist Lint H continrtn] = .continrtn; ! Set address of continue routine 
: 4 IF NOT NULLPARAMETERTSY ! Set promgt descriptor 
3 afl THEN strS$analyze_sdesc (.prompt, realise Cint_w paptten ° 
3 3g r 3 rtnlist Cint_l_pmptaddrJ); | 
: 29% 0 2 RETURN (sys$cli (req_desc, rpw, req_flags)); ! Call DCL utilit 
s $80 my ¢ cer y a. p q_flag y | 
007¢ 000 -ENTRY CLISDCL_PARSE, Save R2,R3,R4,R5,R6 : 0426 
56 000000006 00 9€ 900 MOVAB STRSANACYZE SDESC, R6 ; 
é FF 44 9E 000 MOV -188(SP), § : 
1¢ 00 aa 00 2¢ aur MOVCS #0, (SP), #0, #28, REQ_DESC + 0461 
C8 AD gg 8F 90 51 MOVB #83, REQ DESC + 046 
D8 AD 900000006 00 9E 001A MOVAB LIBS$GET UM, REQ _DESC+16 > 046 
DC AD 000000006 00 9 2 MOVAB LIBSFREE_VM, REG_DESC+20 + 0464 
6C 95 O002A TSTB.—_« CAP) + 0466 
16 13 0002c BEQL «6: 1$ : 
06 Ac 03 002E TSTL  4(AP) : 
11. 13 00037 BEQL ‘18 : 
FC AD 9F 000 PUSHAB COMMAND_DESC+4 + 0469 
F8 AD 9F 000 PUSHAB COMMAND-DESC + 0468 
04 AC DD 00039 PUSHL COMMAND : 
46 03 FB 0003C CALLS #3, STRSANALYZE_SDESC : 
D4 = AD F8 AD 9 003F MOVAB COMMAND_DESC, REQ DESC+12 ; 0479 
CC OAD 08 Ac B 0044 1$: MOVL TABLES, REQ_DESC+% 3 047 
03 6C 91 00049 CMPB ss), 3 > 0475 
05 iF O4¢ BLSSU _2$ : 
oc Ac 03 E TSTL  12¢AP) : 
OA 12 00051 BNEQ  3$ : 
04 6c 91 0095 2$: CMPB «CCAD, #4 ; 
15 1F 00 36 BLSSU 4$ : 
10 A 3 999 TSTL  16(AP) : 
10 13 00 28 BEQL 4 ; 
14 00 6E mA 00 2c 99 p 3$: MOVCS #0, (SP), #0, #20, RTNLIST + 0477 
E46 AD 04 00 ri MOVL #4, RTNLIST : 0478 
£0 A E4 AD ‘ MOVAB RTNLIST, REQ_DESC+24 : 0479 
0 C 4$: AP), #3 + 0482 
A iF BLSSU : 
Oc Ac p 7 T 12(AP) ; 
05 7 BEQL : 
£8 AD oc Ac 7 MOVL § PROMPTRIN, RTNLIST+4 ; 048s 
04 ¢ 7C 5$: CMPB «CAD, #4 > 0484 
A 16 0007F BLSSU : 
10 A p 1 TSTL (AP) : 
0 BEQL = 6 : 
EC ap 10 ac p MOVL § CONTINRTN, RTNLIST+8 + 0485 
0 6¢ 63: CMPBOC«C AP), #5 > 0486 
1F BLSSU F 
14 AC DS TSTL 20¢AP) ; | 


CL TSIRTERE ACE 


66 08 


000000006 00 0 


onooonooo— 


Fo wooo TWH 


; Routine Size: 177 bytes, Routine Base: SCODE$S + OOCF 
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GLOBAL ROUTINE cli$dispatch (argument) = 


j 
—_ 


This routine can be called to dispatch to ony verb processing 
routines if the command has the ROUTINE attribute. 


Inputs: 


RARRARAR REE E REE 
ARANLSSRISAR Gro 


i 

' 

: 

i | 
! 

argument = address of user supplied argument to his own routine 
4 

i 

' 

! 

i 

‘ 

! 


3 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

3 oS ! Outputs: 

; 9 : The verb routine is called (if any). 

3 \¢ 507 1 The status passed back from the routine is returned in RO. 

. i 208 : If no routine is specified, success is returned. 

: He O81), 2 BEGIN 

; i 0312 

; 318 051 BUILTIN 

; 19 0514 NULLPARAMETER; 

; 0 0515 

: 1 B28 LOCAL 

3 § 051 req.desc : BBLOCK pct fee .reqdescs ! Request descriptor block 

s 3 0518 rpw : BBLOCK (cli$c_workareaJ,! Result parse work area 
; 33 0319 req_flags : BITVECTOR (327; ! Request flags array 

; 6 0521 CHSFILL(O, cli$c_reqdesc, req_desc); ! Zero request descriptor block 
3 Ser 05 ; req_desc it be tyect = éLiSkodispatch: ! Set re Jest type ¥ 

; 328 05 req_desc Cint_l_getvm] = Libsget_va; ! Set address of get vm routine 
: 29 82 : a oe LibSfree_va; ! Set address of free vm routine 
; 3 §2 $ THEN cee desc Cint_l_entaddr] = .argument; ! Set address of user argument 
: $ ge ‘ A gaa (SYSSCLI (req_deSc, rpw, req_flags)); ! Call callback utility 


003C¢ 00 ENTRY CLISDISPATCH, Save R2.R3,R4,R5 : 0492 
5E FF60 ce 3 MOV -160(SP), SP ; 
1¢ 00 éE 4 C ? movcS #0, (SP); #0, #28, REQ_DESC + 0521 
E46 AD 4 8F 90 MOVB #84, REQ DESC : 05 2 
F4 AD 990000 06 € 0001 MOVAB LIBS$GET 9M, REQ _DESC+16 : 05 
F8 AD 000000006 1 MOV LIBSFREE_VA, REG_DESC+20 F 3 4 
¢ TSTB. CAP) ; 0525 
A 1 BEQL =s«a1$ ; 
04 AC ; TSTL  4CAP) F 
0 A BEQL =s«s1$ : 
FO AD 06 AC OD MOVL § ARGUMENT, REQ_DESC+12 ; 0526 
SE bb 1$ PUSHL SP : 05 
08 AE OF PUSHAB RPW : 
E4 AD OF PUSHAB REQ_DESC : 


vousdooe ACE 1$-$e0-1984 OO:F2:0) SMH eAit#2.} ti seeScuint.e32;1 2% «45 


000000006 00 03 F 39 ALLS #3, SYSS$CLI F 
be $6020 Ret ; 0528 
3; Routine Size: 65 bytes, Routine Base: $CODE$ + 0180 
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GLOBAL ROUTINE cli$next_qual (name) = 


i 
Move to the next command qualifier on the Line. 


Inputs: 
name = Address of entity name descriptor 
Outputs: 


i 
i 
i 
i 
i 
i 
i 
i 
Be routine value = True if present, else false. 


BEGIN 


MAP 
e : REF BBLOCK; 


LOCAL 
req. ese : a sy Set Li$c_reqdesc] Request descriptor block 
rpw : USS workareaJ,! Result parse work area 
req_ flags : BIIVECTOR C ‘i 


! Request flags array 
CHSFILL(O + oy poaneets req_desc); are er block 
et reque 
i Set address of get vm routine 


Set address of free vm routine 


req_ desc nt_b_ type 
req_desc Cint_l t-getve = Libs 
req. “desc Cint_l 


; Set entity name 


certenitives sdesc (.name, req_desc Cint_w gntlen). req_.desc Cint_l_entaddr]); 
— (sysScli (req_desc, rpw, req_flags)); ! Call“DCL utility 


reevm) = Uipsget va: VM; 


003¢ 00 ENTRY CLISNEXT aU QUAL, Save R2,.R3,R4,R5 
SE FF60 ce E 0000 HOVAB 
00 6E , 00 2 000 ? movcS #0, (SP). *. #28, REQ_DESC 
ee A 000 ie 00 4 1 HOVAB (ee scrum: shea DEscel 
F8 AD bo0000006 09 : 8 ROVAB. biesrae Fhe vA. REG_D 0330 
gC AD 9F PUSHAB REQ Peseta 
aC DD PUSHL 
000000006 00 9 Fa CALLS #3, STRSANALYZE_SDESC 
E 0D PUSHL SP 
08 AE oF PUSHAB RPW 
E AD F PUSHAB Rea DESC 
000000006 00 0 FB ; CALLS #3, “SYSS$CLI 


CFC HETEMT ACE 


3; Routine Size: 


67 bytes, 


Routine Base: 


SCODES + 01C1 


N “S 


1easep=l9be F2:F2 88 


Vv 
Dd 


AX- 
ISK 


“11 
K$V 


Bliss-32 V 


MSMASTER: cbeis OSRCICLINT. 832;1 


Paar) 


CLISINTERFACE 18-56 Sep-1984 VAX-11 Bliss-32_V 
v04-000 735771982 93:Fzi8, Wk aWShAS Fens 

s Sr 64 1 END 

5 Ble §ee3 0 ELUDOM 

: PSECT SUMMARY 

5 Name Bytes Attributes 

: SCODES 516 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 

: ecoceece Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 15 0 581 00:01.0 

H COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:CLINT/OBJ=OBJ$:CLINT MSRC$:CLINT/UPDATE=(ENHS$: CLINT) 


3 pize: 516 code + 0 data bytes 
: Run Time 8 :10.2 

5 heey Time: set 

3; Lines/CPU Min: 31 

5 Lexenes/CPU-Rin: 20213 

3 cy Us 3 pages 

3; Compi ation. Complete 


~w 


| 
| 
OOOO eee 


cbe osRCSCLINT.832; 31 


<o- 


AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


IT 
FI 


DIG 
CON 


